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bool List::insert(KeyType key) { 
Node *new_node, *right_node, *left_node; 

new_node = NULL; 
do{ 

right_node = search (key, &left_node); 

if ((right_node != tail) && (right_node->key == key)) { 

return false; 
} else { 

if (new_node == NULL) new_node = new Node(key); 
new_node->next = right_node; 

if (CAS (&(left_node->next), right_node, new_node)) 1*02*1 
return true; 



} 

} while (true); /*B3*/ 
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bool List::remove(KeyType search_key) , 
Node *right_node, *right_node_next, *left_node; 
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do{ 

right_node = search (search_key, &left_node); 

r if ((right_node == tail) | | 

(right_node->key != search_key)) return false; 
right_node_next = right_node->next; 
50i<^ if (!is_marked_reference(right_node_next)) 

if (CAS(&right_node->next), /* C3 */ \^ 
right_node_next, ^3 
v get_marked_reference(right_node_next)) { 

if (!CAS(&(left_node->next), right_node, right_node_next)) /* C4 */ 
search (right_node->key,&left_node) ; 
return true; ^ 503 
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} 



} 

} while (true); /*B4*/ 
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bool List::find (KeyType search_key) 

Node *right_node; 
Node *left_node; 



right_node = search (search_key, &left_node); 

return ((right_node != tail) && (right_node->key == search_key)) ; 

> 
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Node* List::search (KeyType search_key, Node **left_node) { 
Node *left_node_next; 
Node *right_node; 

search_again: 
do{ 

Node* t = head; 

Node* t_next = head->next; 

f /* 1 : Find left_node and right_node */ 

do{ 

if (!is_marked_reference(t_next)) { 
(*left_node) = t; 
left_node_next = t_next; 

} 

t = t_next; 
if (t == tail) break; 
t_next = t_next->next; 

} while (is_marked_reference(t_next) | | (t->key < search_key)); /*B1 */ 
right_node = t; 
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/* 2: Check if right_node is the immediate successor of left_node */ 

if (left_node_next == right_node) 
if ((right_node != tail) && is_marked_reference(right_node->next)) 

goto search_again; /*G1 */\ 
else G1 

return right_node; /*R1 */ \ 



R1 

/* 3: Remove one or more marked nodes between left_node and right_node */ 

— C1 



if (CAS (&((*left_node)->next), left_node_next, right_node)) /*C1*/ * 
if ((right_node != tail) && is_marked_reference(right_node->next)) 
goto search_again; /*G2*/ 
else G2 
return right_node; /*R2*/ \ 



R2 



} 



} while (true); /*B2*/ 
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Node* List::deleteGE (KeyType search_key) 
Node *right_node, *right_node_next f *left_node; 
do{ 

right_node = search (search_key f &left_node); 
if (right_node == tail) return false; /*T1 */ ^ 



right_node_next = right_node->next; 
if (!is_marked_reference (right_node_next)) { 
if (CAS (&(right_node->next), 
right_node_next, 



get_marked_reference (right_node_next))) { /*C5*/ ^ 
if (!CAS (&(left_node->next), right_node, right_node_next)) /*C6*/ 
search (right_node->key f &left_node); 

return right_node; 





} while (true); /*B4*/ 




} 
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bool List::insert2 (KeyType key) { 
Node new_node*, *dup_right_node, *right_node, *left_node; 



newNode = NULL; 
do{ 

right_node = search (key, &left_node); 



if ((right_node != tail) && (right_node->key == key)) 
return false; 
else { 

if (new_node == NULL) new_node = new Node(key); 
if (right_node == tail) { 
new_node->next = tail; 

if (CAS (&(left_node->next), tail, new_node)) /*C7*/ 
return true; 
} else { 
Node *right_node_next; 

dup_right_node = new Node (right_node->key); 
new_node->next = dup_right_node; 
right_node_next = right_node->next; 
if (!is_marked_reference (right_node_next)) { 

dup_right_node->next = right_node_next; 

if (CAS (&(right_node->next), 
right_node_next, 

get_marked_reference (dup_right_node))) { /*C8*/ 
if (!CAS (&(left_node->next), 
right_node, 
new_node)) 1*03*1 
search (key, &left_node); C9 
return true; 

} 

} 

} 

} 

} while (true); /*B5*/ 

} FIG. 10 
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